home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / odbcall.zip / BUFRDEMO.ZIP / UNIT1.DFM / UNIT1.txt
Text File  |  1995-11-05  |  7KB  |  187 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 102
  4.   Width = 470
  5.   Height = 365
  6.   Caption = 'Form1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   TextHeight = 16
  14.   object StatusLabel: TLabel
  15.     Left = 0
  16.     Top = 318
  17.     Width = 458
  18.     Height = 16
  19.     Align = alBottom
  20.     Caption = 'StatusLabel'
  21.   end
  22.   object Panel1: TPanel
  23.     Left = 0
  24.     Top = 0
  25.     Width = 458
  26.     Height = 107
  27.     Align = alTop
  28.     TabOrder = 0
  29.     object UnDo: TSpeedButton
  30.       Left = 166
  31.       Top = 36
  32.       Width = 25
  33.       Height = 25
  34.       Hint = 'Undo'
  35.       Glyph.Data = {
  36.         76010000424D7601000000000000760000002800000020000000100000000100
  37.         04000000000000010000130B0000130B00000000000000000000000000000000
  38.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  39.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  40.         3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
  41.         33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
  42.         993337777F777F3377F3393999707333993337F77737333337FF993399933333
  43.         399377F3777FF333377F993339903333399377F33737FF33377F993333707333
  44.         399377F333377FF3377F993333101933399377F333777FFF377F993333000993
  45.         399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
  46.         99333773FF777F777733339993707339933333773FF7FFF77333333999999999
  47.         3333333777333777333333333999993333333333377777333333}
  48.       NumGlyphs = 2
  49.       ParentShowHint = False
  50.       ShowHint = True
  51.       OnClick = UnDoClick
  52.     end
  53.     object UnDelete: TSpeedButton
  54.       Left = 190
  55.       Top = 36
  56.       Width = 25
  57.       Height = 25
  58.       Hint = 'UnDelete'
  59.       Enabled = False
  60.       Glyph.Data = {
  61.         76010000424D7601000000000000760000002800000020000000100000000100
  62.         04000000000000010000130B0000130B00000000000000000000000000000000
  63.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  64.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  65.         3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
  66.         3333333777333777FF3333993333339993333377FF3333377FF3399993333339
  67.         993337777FF3333377F3393999333333993337F777FF333337FF993399933333
  68.         399377F3777FF333377F993339993333399377F33777FF33377F993333999333
  69.         399377F333777FF3377F993333399933399377F3333777FF377F993333339993
  70.         399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
  71.         99333773FF3333777733339993333339933333773FFFFFF77333333999999999
  72.         3333333777333777333333333999993333333333377777333333}
  73.       NumGlyphs = 2
  74.       ParentShowHint = False
  75.       ShowHint = True
  76.       OnClick = UnDeleteClick
  77.     end
  78.     object Delete: TSpeedButton
  79.       Left = 190
  80.       Top = 12
  81.       Width = 25
  82.       Height = 25
  83.       Hint = 'Delete'
  84.       Glyph.Data = {
  85.         78010000424D7801000000000000760000002800000020000000100000000100
  86.         04000000000000000000120B0000120B00000000000000000000000000000000
  87.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  88.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  89.         55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
  90.         305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
  91.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  92.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  93.         B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
  94.         B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
  95.         B0557777FF577777F7F500000E055550805577777F7555575755500000555555
  96.         05555777775555557F55550005555555055555777555555575550000}
  97.       NumGlyphs = 2
  98.       ParentShowHint = False
  99.       ShowHint = True
  100.     end
  101.     object Insert: TSpeedButton
  102.       Left = 166
  103.       Top = 12
  104.       Width = 25
  105.       Height = 25
  106.       Hint = 'Insert'
  107.       Glyph.Data = {
  108.         76010000424D7601000000000000760000002800000020000000100000000100
  109.         04000000000000010000130B0000130B00000000000000000000000000000000
  110.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  111.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  112.         33333333FF33333333FF333993333333300033377F3333333777333993333333
  113.         300033F77FFF3333377739999993333333333777777F3333333F399999933333
  114.         33003777777333333377333993333333330033377F3333333377333993333333
  115.         3333333773333333333F333333333333330033333333F33333773333333C3333
  116.         330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
  117.         993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
  118.         333333333337733333FF3333333C333330003333333733333777333333333333
  119.         3000333333333333377733333333333333333333333333333333}
  120.       NumGlyphs = 2
  121.       ParentShowHint = False
  122.       ShowHint = True
  123.     end
  124.     object RadioGroup1: TRadioGroup
  125.       Left = 14
  126.       Top = 8
  127.       Width = 142
  128.       Height = 94
  129.       Caption = 'Visible Buffers'
  130.       ItemIndex = 0
  131.       Items.Strings = (
  132.         'Data'
  133.         'Original'
  134.         'Deleted')
  135.       TabOrder = 0
  136.       OnClick = RadioGroup1Click
  137.     end
  138.   end
  139.   object DataGrid1: TDataGrid
  140.     Left = 0
  141.     Top = 107
  142.     Width = 458
  143.     Height = 211
  144.     Align = alClient
  145.     ColCount = 2
  146.     DataSource = ODBCQuery1
  147.     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goTabs]
  148.     RowCount = 2
  149.     ColWidths = (
  150.       10
  151.       85)
  152.   end
  153.   object ODBCQuery1: TODBCQuery
  154.     Active = False
  155.     Connection = 'InterBase'
  156.     EditFields.Strings = (
  157.       'CHARFIELD'
  158.       'DATEFIELD'
  159.       'MYKEY'
  160.       'NOTES')
  161.     KeyFields.Strings = (
  162.       'MYKEY')
  163.     SQL.Strings = (
  164.       'select * from DemoTable')
  165.     UpdateTable = 'DemoTable'
  166.     AfterActivate = ODBCQuery1AfterActivate
  167.     AfterScroll = ODBCQuery1AfterScroll
  168.     AfterDeleteRec = ODBCQuery1AfterActivate
  169.     AfterInsertRec = ODBCQuery1AfterActivate
  170.     Left = 424
  171.     Top = 35
  172.     ExtendedFieldInfo = {
  173.       050000000600054D594B45590600054D594B45590600054D594B45590A000943
  174.       4841524649454C440A0009434841524649454C440A0009434841524649454C44
  175.       0A0009444154454649454C440A0009444154454649454C440A00094441544546
  176.       49454C440600054E4F5445530600054E4F5445530600054E4F5445530A000942
  177.       4C4F424649454C440A0009424C4F424649454C440A0009424C4F424649454C44}
  178.   end
  179.   object ODBCCon1: TODBCCon
  180.     Connected = False
  181.     ConnectionMethod = cmConnect
  182.     DataSource = 'InterBase'
  183.     Left = 425
  184.     Top = 4
  185.   end
  186. end
  187.